home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / redakcyjne / programy / MediaMonkey 3.1.0.1256 / MediaMonkey_3.1.0.1256.exe / {app} / Scripts / AutoIncTrackN.vbs next >
Encoding:
Text File  |  2008-02-11  |  2.1 KB  |  72 lines
  1. ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  2. ' This file can be replaced  in one of the future versions,
  3. ' so please if you want to modify it, make  a copy, do your
  4. ' modifications  in that copy and  change Scripts.ini  file 
  5. ' appropriately. 
  6. ' If you do not do this, you will lose  all your changes in
  7. ' this script when you install a new version of MediaMonkey
  8. ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  9.  
  10. ' This script fills in track #s incrementally
  11.  
  12. Sub AutoIncTrackNumbers
  13.   ' Define variables
  14.   Dim list, itm, i, tmp
  15.  
  16.   ' Get list of selected tracks from MediaMonkey
  17.   Set list = SDB.CurrentSongList 
  18.   If list.Count=0 Then
  19.     Exit Sub
  20.   End If
  21.  
  22.   Set UI = SDB.UI
  23.  
  24.   ' Create the window to be shown
  25.   Set Form = UI.NewForm
  26.   Form.Common.SetRect 0, 0, 400, 180
  27.   Form.FormPosition = 4   ' Screen Center
  28.   Form.BorderStyle = 3    ' Dialog
  29.   Form.Caption = SDB.Localize("Auto-increment Track #s")
  30.  
  31.   Set Lbl = UI.NewLabel( Form)
  32.   Lbl.Common.SetRect 10,15,370,40
  33.   Lbl.AutoSize = False
  34.   Lbl.Multiline = True
  35.   Lbl.Caption = SDB.LocalizedFormat( "This will modify the track# field in sequential order for the %d selected tracks. Do you want to proceed?", list.Count, 0, 0)     ' TODO:  Localize
  36.  
  37.   Set Lbl = UI.NewLabel( Form)
  38.   Lbl.Common.SetRect 10,65,280,20
  39.   Lbl.Caption = SDB.Localize("Start numbering from:")
  40.  
  41.   Set SE = UI.NewSpinEdit( Form)
  42.   SE.Common.SetRect Lbl.Common.Left+Lbl.Common.Width+10, 61, 50, 20
  43.   SE.MinValue = 1
  44.   SE.MaxValue = 9999
  45.   SE.Value = 1
  46.  
  47.   Set Btn = UI.NewButton( Form)
  48.   Btn.Caption = SDB.Localize("OK")
  49.   Btn.Common.SetRect 115,100,75,25
  50.   Btn.ModalResult = 1
  51.   Btn.Default = true
  52.  
  53.   Set Btn = UI.NewButton( Form)
  54.   Btn.Caption = SDB.Localize("Cancel")
  55.   Btn.Common.SetRect 220,100,75,25
  56.   Btn.ModalResult = 2
  57.   Btn.Cancel = true
  58.   
  59.   if Form.ShowModal=1 then
  60.     number = SE.Value
  61.     ' Process all selected tracks
  62.     For i=0 To list.count-1
  63.       Set itm = list.Item(i)
  64.  
  65.       ' Swap the fields
  66.       itm.TrackOrder = number
  67.       number = number + 1
  68.     Next
  69.     list.UpdateAll
  70.   End If
  71. End Sub
  72.